
## Make registration file

## Also: Finds FOLKS TO CHECK AT REG DESK

#source( "Rs/showStats.R" )


P = read.csv( "indiv_folks.csv" )
names(P)
P$who.gay = NULL
P$who.str = NULL
P$email = NULL
P$timestamp = NULL
P$first1 = NULL
P$last1 = NULL
P$friends = NULL
P$geekCode = NULL
P$referred = NULL
P$isMan = P$isWoman = P$isTransM = P$isTransW = P$isGQ = NULL
P$lookM = P$lookW = P$lookTransM = P$lookTransW = P$lookGQ = P$lookNone = NULL


T = table( P$gender1 )
T = T[ T < 4 ]
T

P$check = P$gender1 %in% names( T )
P$check = P$check | P$matches < 6

T = table( P$lookGender1 )
T = T[ T < 4 ]
T
P$check = P$check | (P$lookGender1 %in% names( T) )

P[ P$check, 1:10 ]

bl = read.csv( "banList.csv" )
P2 = P[ c( "personID", "check" ) ]
bl = merge( bl, P2, all.x=TRUE )
bl$check = ifelse( bl$check, "See Luke", "" )
write.csv( bl, file="banList.csv", 
 				quote=FALSE, row.names=FALSE)
